Imports System.Xml
Imports System.Net
Imports System.IO
Public Class Ear_Position

    ' ******************************************
    ' * SEND THE EAR POSITION. Need to change  *
    ' * to use the class                       *
    ' ******************************************

    Private Sub send_ear(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sendear.Click
        Dim left As String = leftear_bar.Value.ToString
        Dim right As String = rightear_bar.Value.ToString
        leftear_box.Text = left
        rightear_box.Text = right
        Dim tts1 As String
        tts1 = Bunny.Form1.mntts.Text.Replace(" ", "+")
        Dim sUri As String = "http://api.nabaztag.com/vl/FR/api.jsp?key=431561751&sn=" & Bunny.Form1.serial.Text & "&token=" & Bunny.Form1.token.Text & "&posright=" & right & "&posleft=" & left

        urioutput.Text = sUri
        Dim myUri As System.Uri = New System.Uri(sUri)

        Dim httpWRequest As HttpWebRequest = WebRequest.Create(myUri)
        Dim httpWResponse As HttpWebResponse = httpWRequest.GetResponse()

    End Sub


    
End Class